home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Education / PC-SiG's World of Education.iso / install.ins < prev    next >
Text File  |  1993-11-05  |  2KB  |  90 lines
  1.   StrRet := 'PC-SIG World of Education CD-ROM Setup';
  2.   Cls;
  3.   DoFunc(0);
  4.  
  5. GetFrom:
  6.   DoFunc(5);
  7.   Mssg(6,3,'Enter the Drive letter of your CD-ROM.');
  8.   DoFunc(11);
  9.   DoFunc(2);
  10.   CDROMDrive := StrRet;
  11.   BranchEq(IntRet,0,Leaving);
  12.   BranchEq(IntRet,2,GetFrom);
  13.  
  14. GetDrive:
  15.   DoFunc(5);
  16.   Mssg(6,3,'Enter the Drive letter of your hard disk.');
  17.   StrRet := 'C';
  18.   DoFunc(2);
  19.   ToDrive := StrRet;
  20.   BranchEq(IntRet,0,Leaving);
  21.   BranchEq(IntRet,2,GetDrive);
  22.  
  23.   {Example of the directory name on their hard disk}
  24.   {Should be the same as the directory name stored}
  25.   {in the HR.CDB file}
  26.   ConCat(SysPath,ToDrive,':','\PCSIGEDU');
  27.  
  28.   {Complete Path to the file GO.BAT}
  29.   StrRet := SysPath;
  30.   DoFunc(6);
  31.   ConCat(SysPath2,StrRet,'GO.BAT');
  32.  
  33.   DoFunc(5);
  34.   Mssg(6,3,'You have specified the following:');
  35.   Mssg(8,5,'- CD-ROM is in Drive  :');
  36.   Mssg(29,5,CDROMDrive);
  37.   Mssg(8,6,'- Install Batch File onto Drive');
  38.   Mssg(40,6,SysPath);
  39.  
  40.   DoFunc(7);
  41.   DoFunc(5);
  42.   BranchEq(IntRet,0,Leaving);
  43.   BranchEq(IntRet,2,GetFrom);
  44.  
  45.   IntRet := 1; {If they don't have 101K free then don't install}
  46.   DoFunc(4);
  47.   BranchEq(IntRet,0,Leaving);
  48.   BranchEq(IntRet,2,Leaving);
  49.  
  50.   DoFunc(5);
  51.   Mssg(6,3,'Installing CD-ROM start up batch file now:');
  52.  
  53.   {Make The Directories Here}
  54.   Mssg(5,21,'Creating Directory...');
  55.   ChDir(CDROMDrive,':');
  56.   ChDir('\HR');       {built in directory name on the CD}
  57.   ChDir(ToDrive,':');
  58.   MkDir(SysPath);
  59.   ChDir(SysPath);
  60.  
  61.   Mssg(5,21,'Creating Batch File...');
  62.   StrRet := SysPath2;
  63.   IntRet := CDROMDrive;
  64.   DoFunc(10);
  65.  
  66.   Mssg(5,21,'Copying Files...      ');
  67.   Copy(CDROMDrive,':*.RDS >NUL');
  68.   Copy(CDROMDrive,':*.NBM >NUL');
  69.   Copy(CDROMDrive,':TOUR*.DAT >NUL');
  70.  
  71.   Mssg(5,21,'                ');
  72.  
  73. Complete:
  74.   StrRet := InstName;
  75.   DoFunc(0);
  76.   Mssg(0,0,'Installation Complete');
  77.   Cls;
  78.   Mssg(1,10,'Type GO from the PCSIGEDU directory to enter the');
  79.   Mssg(1,11,'PC-SIG World of Education CD-ROM');
  80.   Goto Exit;
  81.  
  82. Leaving:
  83.   StrRet := InstName;
  84.   DoFunc(0);
  85.   Mssg(0,0,'Installation aborted by User');
  86.   Cls;
  87.   Goto Exit;
  88.  
  89. Exit:
  90.